home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS 8 / P8S007A.dsk / INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  52 lines
  1. 100  HOME 
  2. 103  DIM W$(900)
  3. 105 D$ =  CHR$(4)
  4. 107  VTAB 5: HTAB 4: PRINT "PLACE SIDE B OF DISK INTO DRIVE"
  5. 110  VTAB 8: HTAB 4: PRINT "Which part you you like to see?"
  6. 112  VTAB 10: HTAB 12: PRINT "1)  Part 1"
  7. 114  VTAB 12: HTAB 12: PRINT "2)  Part 2"
  8. 115  VTAB 14: HTAB 12: PRINT "3)  Appendix"
  9. 116  VTAB 16: HTAB 12: PRINT "4)  Quit"
  10. 117  VTAB 20: HTAB 9: PRINT "Enter your choice: ";: GET A$: PRINT A$
  11. 118  IF A$ = "4"  THEN 310
  12. 119  IF A$ <"1"  OR A$ >"3"  THEN  PRINT  CHR$(7): GOTO 117
  13. 122  PRINT D$;"OPEN YOYODUCK": PRINT D$;"READ YOYODUCK": INPUT YO$: PRINT D$;"CLOSE"
  14. 124  IF YO$ < >"SIDE2"  THEN  GOSUB 2000: GOTO 122
  15. 126  HOME : VTAB 8: HTAB 10: PRINT "PLEASE WAIT - WORKING"
  16. 130  PRINT D$;"OPEN P";A$
  17. 140  PRINT D$;"READ P";A$
  18. 150  ONERR  GOTO 185
  19. 160  FOR I = 1 TO 900
  20. 170  INPUT W$(I)
  21. 180  NEXT I
  22. 185 N = I -1
  23. 190  PRINT D$;"CLOSE"
  24. 191  HOME 
  25. 200  VTAB 12: PRINT  TAB( 5);"DO YOU WANT A HARDCOPY? (Y/N) N"
  26. 205  VTAB 12: HTAB 35: GET A$: PRINT A$
  27. 207  IF A$ =  CHR$(13)  THEN A$ = "N": GOTO 215
  28. 210  IF A$ < >"Y"  AND A$ < >"N"  AND A$ < >"y"  AND A$ < >"n"  THEN  PRINT  CHR$(7): GOTO 205
  29. 215  HOME : VTAB 8: PRINT "         PRESS CONTROL-S TO PAUSE                  INSTRUCTIONS AND ANY                   KEY TO START UP AGAIN."
  30. 216  VTAB 13: HTAB 10: PRINT "PRESS CONTROL-C TO STOP"
  31. 217  VTAB 22: PRINT  TAB( 7);"PRESS SPACEBAR TO CONTINUE: ";: GET SP$: PRINT SP$
  32. 220  ONERR  GOTO 280
  33. 230  IF A$ = "Y"  OR A$ = "y"  THEN  PRINT  CHR$(4);"PR#1": PRINT  CHR$(9);"80N": GOTO 260
  34. 240  PRINT  CHR$(4);"PR#3"
  35. 245  ONERR  GOTO 280
  36. 250  SPEED= 200
  37. 260  FOR I = 1 TO N: PRINT W$(I):W$(I) = "": NEXT I
  38. 280  SPEED= 255
  39. 285  IF A$ = "Y"  OR A$ = "y"  THEN  PRINT  CHR$(4)"PR#0"
  40. 290  PRINT : PRINT : PRINT : PRINT "PRESS SPACEBAR TO CONTINUE: ";: GET A$: PRINT A$
  41. 300  PRINT  CHR$(17) + CHR$(21): REM    TURN ON 40 COL AND DEACTIVATE 80 COLUMN
  42. 305  HOME : GOTO 110
  43. 310  HOME 
  44. 312  VTAB 8: HTAB 4: PRINT "PLACE SIDE A OF DISK INTO DRIVE"
  45. 314  VTAB 10: HTAB 2: PRINT "AND PRESS THE RETURN KEY TO CONTINUE";: GET SB$: PRINT SB$
  46. 316  PRINT D$;"OPEN YOYODUCK": PRINT D$;"READ YOYODUCK": INPUT YO$: PRINT D$;"CLOSE"
  47. 318  IF YO$ < >"SIDE1"  THEN  GOSUB 2000: GOTO 316
  48. 320  PRINT  CHR$(4);"RUN HELLO2"
  49. 2000  HOME 
  50. 2010  VTAB 8: HTAB 2: PRINT "Place other side of disk into drive"
  51. 2020  VTAB 10: HTAB 3: PRINT "and then press Return to continue";: GET SB$: PRINT SB$
  52. 2030  RETURN